home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
AMIGA
/
AMICUS
/
AMICUS17.ADF
/
C
/
FixObj.C
< prev
next >
Wrap
C/C++ Source or Header
|
1989-01-27
|
2KB
|
75 lines
/* FIXOBJ : cleanup routine for Amiga Object files (c) 1986 John Hodgson
Note : FIXOBJ attempts to remove last record filler by truncating all
information past the last HUNK_END, providing the HUNK_END sequence
is within the last 128-byte record. The algorithm used here could be
thwarted if end-of-file filler happens to contain a bogus HUNK_END, or
if a particular load file ends with anything besides HUNK_END.
Format: FIXOBJ <source-file> <dest-file>.
Note : Due to a bug in the RAM: device, do not attempt to FIXOBJ
the source file if residing in ramdisk. (as of 1.1)
Rev 1.1 : Corrected for use with Aztec "C" */
#include <stdio.h>
/* constant definitions */
#define REVHUNK_END (0xf203)
#define BYTEBITS (8)
#define ENDOFFSET (2)
main(argc,argv)
int argc;
char *argv[];
{
FILE *rdptr,*wrtptr,*fopen();
long pos,ctr,ftell();
unsigned short media;
if (argc!=3) {
printf("Usage : fixobj srcfile destfile\n");
exit(0);
}
if ((rdptr=fopen(argv[1],"r"))==NULL) {
printf("Error opening file %s for reading.\n",argv[1]);
exit(0);
}
/* search last record backwards for HUNK_END combo in reverse order */
media=0;
for (ctr=-1;ctr>-128;ctr--) {
/* simulate a 16-bit shift register for easy hunk check */
media<<=BYTEBITS;
fseek(rdptr,ctr,ENDOFFSET);
media|=getc(rdptr);
if (media == REVHUNK_END) break;
}
if ((media!=REVHUNK_END) || ctr==-2) {
(ctr==-2) ? printf("No corrections made!\n"):
printf("Invalid load format!\n");
fclose(rdptr);
exit(0);
}
if ((wrtptr=fopen(argv[2],"w"))==NULL) {
printf("Error opening file %s for writing.\n",argv[2]);
fclose(rdptr);
exit(0);
}
/* duplicate file up to HUNK_END, inclusive */
pos=ftell(rdptr)+1;
rewind(rdptr);
for (ctr=0;ctr<pos;ctr++) putc(getc(rdptr),wrtptr);
fclose(rdptr); fclose(wrtptr);
}